25800		SUBROUTINE LINES(A,B,L)
25850		COMMON/DST/BB,CC
25900		COMMON /SIZ/RSZ,JCEN,KCEN /FL/IC,NZ,NX,RZ,XGP
26000		COMMON/DL/IXRX,SAVER,AA /PLTR/IPLT,RHT,DIS
26100		COMMON R2,JA,CENTR,JB,RJQ(20),JQ(20)
26200		COMMON/DPY/JJ(4000),WDS(250),MEDIT,IGO
26400		EQUIVALENCE (ITOP,JJ(3999)),(IBOT,JJ(4000))
26402		1,(JJ2,JJ(2))
26500		DATA BB/.008/,CC/3.5/
26600	C  SET XGP TO 1200.0 FOR MARGIN IN XEROX COPIES
26650		GO TO 23
26700	22	IF(JQ(1).NE.0)GO TO 23
26750		IF(CC.EQ.1000)GO TO 23
26775	C  ABOVE TO SKIP DISTORTION ON COMMAND
26800	C  CHANGE ABOVE TO 'JFCL' IN DDT TO USE NEXT ITEMS.
27000	C  USE THIS IN DDT TO DISTORT ITEMS.  CC MUST BE > DD
27100		B=B*(CC-BB*ABS(A))
27150	C  CC IS HGT FACTOR.
27200	23	IF(IPLT)GO TO 2
27300		M=A*RSZ
27400		N=B*RSZ
27500		IF(RSZ.LE.0.8571)GO TO 3
27600	C NEXT FOR DISPLAY MAGNIFICATION
27700		M=M-JCEN
27800		N=N-KCEN
27900		IF(JA.NE.8)GO TO 5
28000	C NEXT INSURES DISPLAY OF STAFF LINES
28100		IF(M.GT.511)M=511
28200		IF(M.LT.-511)M=-511
28400	5	IF(IABS(M).GT.512)GO TO 77
28450		IF(IABS(N).LT.512)GO TO 4
28500	C  NOW DRAWS INVISIBLE VECT. IF IT GOES OFF THE SCREEN.
28600	77	KZ=-1
28700		RETURN
28800	4	IF(KZ.EQ.0)GO TO 6
28900		KZ=0
29000		GO TO 1
29050	3	IF(JA.EQ.44)GO TO 6
29075	C JA=44=BAR LINES - THEY DON'T FIGURE IN MAX. HGT.
29100		K=B
29200		IF(K.GT.ITOP)ITOP=B
29300		IF(K.LT.IBOT)IBOT=B
29302	6	IF(JJ2.GT.3990)RETURN
29400		IF(L.EQ.3)GO TO 1
29500		CALL AVECT(M,N)
29600		RETURN
29700	1	CALL AIVECT(M,N)
29800		RETURN
29900	2	IF(IPLT.EQ.-2)RETURN
30300	C RXGP SETS UP-DOWN POS. ON XEROX PAPER (FRACTIONAL POSITIONS POSSIBLE.)
30400	CC	IF(B)BX=-BX
30500	C  AX AND BX ARE FOR ROUND-OFF
30600	CC	IF(IXRX.EQ.0)GO TO 9
30610	CC	M=ROFF(RXGP-B*RHT)
30620	CC	N=ROFF(XGP+A*DIS)
30900	CC	GO TO 8
31110	9	M=ROFF(A*DIS)
31120		N=ROFF(B*RHT)
31200	8	CALL PLOT(M,N,L)
31400		END